ANnnnno 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR =RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


AHA tt tt Ht tt SH 
a | LLL) 
ee ee ee Le) 


L 
LLLLLLLLLLLELLLL 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


| Se eee en ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee esi 


| **F 1LE**1]D**BASINIONE 


= 
' 


wou uous 
wow ww cy SSS) 
wou usu ud 
usw ww Wad kas 
usw ww Aa 
usu ww du 


dd kd 
as hs dds a 


S8S88S88s8S 


2222222222222 
2222222222222 
zz 
2== 
2S 
zz 
2 
2222222222222 
22222222 222222 
—? — es 


Chem) a 
a Oe ey a at oe ng ed en ge 
8 ne de ae a a a eg 


Centon amd 
ote omens 
nn Munn 
wn MNwnn 
wn nn “wn 
nw nw wn 
nw nw “ww 
“ww ww wn 
nw mn ww 
nw nw vw 
MMnn ww 
MMMM mn 


came 2222 


co 


222222222222 
Saan Sane 


BBBB8BEB AAAAAA 


nn NNNwn 
nw nw nw 
mw nw Vn 
nw nw nw 
Vw nw nw 
nn "nw nw 
“Vw nw nw 
Ynwnn Add 
Yn mn 
os axeere 
as baud 


ee Od Oe Ok Og Og Og Og Od OS OG OE 
a at a ae Oe a ot 8 Ot ne ae te 


—, —e— 
oe —e 
afal 
abet 
pe tee 
~— 
4 
4) 
jee te 
4 
shullachabababciabubabahababal 
pa Ye ee foe fe Pa ee ee Be es es ee 


5 
BASBINIT ONER WE-Seo-1984 0:87:57 yayett BLigg=52 v4.0-74g, al 


MODULE BASSINIT_ONER ( ; 
“fo ENT = *1-003' ! File: BASINIONE.B32 


BEGIN 
; 
IPI is iti iii iii itititiiiiiiiitiiiiiiiy 


ie COPYRIGHT (c) 1978 1980, 1982, 1984 68 
ie DIGITAL EQUIPMENT CORPORATION, “MAYHARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS F + Tp UNDER A LICENSE AND MAY BE USED AND corre? 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE Yr sof aa yo 
:@ od | ML a ag my NOT BE PROVIDED OR OTHERWISE MADE AVAIL 


® 
® 
& 
® 
2 
® 
* 
© 
© 
' ® 
ie TRANSFERRED. . 
a 
© 
® 
os 
* 
® 
® 
& 
fe 
® 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC . 
i: smPOkat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MEPESESIESIISISIIT ITI SITET ETI TTT TTT TTP eT cece irri ici i iii i tii iii iiiiiiie 
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& 

FACILITY: BASIC-PLUS-2 Frame Support 

ABSTRACT: 
These routines set up and tear down frames for SAFC PLUE=S. 
Frames are used for main routines, external function 
external subroutines, internal functions (both DEFs. ond DEF *s) 
internal subroutines (GOSUBs) and condition handlers. 

ENVIRONMENT: VAX-11 user mode 

AUTHOR: John Sauter, CREATION DATE: 10-Oct-78 

MODIFIED BY: 

1-001 - Ori 


al. 
1-002 - Oseresrs: instead of BASS for stack frame prefix. JBS 08-FEB-1979 
1-005 = Set the IV bit in the PSW if requested. JBS 11-SEP-19 
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; SWITCHES: 


iEeseo-1964 90:87:57 


AX-11 Bliss-32 v4 
BASRTL.SRCJBASINI 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


! LINKAGES: 


LINKAGE 
BASSCOND 138 e 
GLOBAL (BSFSA_ 
NOPRESERVE (8; 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSINIT_ONERR; 


INCLUDE FILES: 


LIBRARY *RTLSTARLE'; 

REQUIRE "RTLIN:RTILPSECT’; 
REQUIRE "RTLIN:BASFRAME'; 
REQUIRE "RTLIN:BASINARG’; 


( 

MACROS: 

i NONE 

' 

i EQUATED SYMBOLS: 

i NONE 

1 

PSECTS: 

DECLARE _PSECTS (BAS); 
i OWN STORAGE : 

i NONE 

' 

i EXTERNAL REFERENCES: 


eee, Se Ee 
BASSHANDLER; 


att 


' 
INOR_ST6 


mM 
0 


= 10, BSFSA_TEMP_STG = 9) 


start condition handler 


symbols for strings 
macros for defing psects 
Define frame structure 
Define frame parameters 


declare psects for BASS facility 


handles signals 
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Ise 1984 00:37:57 AX=-11 Bliss-32 V4.0-74 Pa 3 | 
10-8¢b-1984 99330538 EBASRTL SRE BASINIONE .852;1 (3) 
GLOBAL ROUTINE BASSINIT_ONERR ( ! start condition handler 
OLD_FMP, ! frame of establisher 
w_PC ! where to start condition handler 


= 
lee 
FUNCTIONAL DESCRIPTION: 

i Set up a frame for a BASIC-PLUS-2 condition handler. 

The frame is allocated on the stack, and R9 is left pointing 
to its senporery storage. R10 and R11 are set up from the 
frame which declared the error handler. 

i FORMAL PARAMETERS: 


1 

1 

1 

1 

1 

1 

1 

1 

1 1 

1 i 

1 ' 

1 i 

1 ' 

1 1 

1 ' 

+} OLD_FMP.ra.v Address of the frame of the establisher of 
1! the error handler. 
,} NEW_PC.ra.v Address of the first Line of the condition 
: . handler. 
! IMPLICIT INPUTS: 

; NONE 
IMPLICIT OUTPUTS: 
1! The value of R9, which points to the temporary storage, 

1! and of R10 and R11, which point to the variables of the 

: : establisher. 

ROUTINE VALUE: 

1! The ‘‘value’’ of the routine is determined by how the condition 
1! handler terminates. See the BASSERROR module for the 

} : termination routines and what value they cause to be returned. 
: COMPLETION CODES: 

: NONE 

; SIDE EFFECTS: 

7? Leaves lots of things on the stack for use by the compiled 

1! BASIC-PLUS-2 code. This routine calls the conpiled code, and 
: return to this routine’s caller will be made when the compiled 
1 t 

1 t 

j ' 

: 


code does a RESUME, ON ERROR GOTO 0 or ON ERROR GO BACK. 
See the BASSERROR module for details. 


BEGIN 


MAP 

OLD_FMP : REF BLOCK (CO, BYTE] FIELD (BSFSFCD); 
BUILTIN 

FP, 


HS 
BASSINIT_ONER 16-Sep-1984 00:37:57 -YAX=11 Bliss-32 v4.0-74 p 
i608 10=35p=1986 11:55:68 EBASRTL°SRESBASINIONE 1682; 1 me 


REGISTER 
FMP : REF BLOCK (CO, pyre? FAgLO (BSFSFCD 


ointer to FCD 
ARGLIST : REF BLOCK é 


CD) H 
0, BYTE] FIELD (BASSINIT_ARGS) ! points to establisher's arg List 


'¢ 
The following registers are passed to the compiled code. 


GLOBAL REGISTER 
BSFSA_MAJOR_STG = 11, 
BSFSA-MINOR-STG = 10, 
BSFSA-TEMP_STG = 9; 


PUPP PUSS 
PEON 


MEW OOS NO UNSW OOOO 


'¢ 
Allocate frame control data. 
"FMP = FP; 
1. SP = .FMP = BSFSK_LENFCDONE; 
; Set up new temporary storage. 
" ARGLIST = .OLD_FMP CBSFSA_INIT_ARG); 

LF CC ARGLIST CBAS$SL_IN_NO_TST] NEQ 0) OR (.ARGLIST CBAS$L_IN_NO_NMT] NEQ 0)) 

BEGIN 

'¢ 


We must set up RY. First allocate string temporaries. 


REN SSSELISPASLESELER PENIS SSNS 


PIFIFIPIFID IIIA III III a a rk kd ot od od oe 
OOOCOOCOCOOCOCOCOOSOCOSOS OOOO OOCOOCOCOOOO OOOO OO OOOO OOOOOOOSCO 


val vab ab ab ab Ah Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab hb Ab bb Ab edh ab ah ah ab ahah eal eal eal eal eal eal 
DOO OO OWWWOWWOWWOWON NINN NNN NSO OO 


SP 
B1SPsw; 
‘+ 
! Define local variables as registers. We connot have any stack 
: locals since we manipulate the stack pointer in this routine. 
4 
4 
4 
4 
4 
4 


05 

oF a FROM 1 TO .ARGLIST CBASSL_IN_NO_TST] DO 
09 SP = .SP = XUPVAL; 

10 SP = 0; ! Pointer 0 implies not allocated. 
1 $P = .SP = XUPVAL; 

i BLOCK (.SP, DSC$B_CLASS; 8. evred = DSCSK_CLASS_D; 
1 BLOCK [:SP, DSCS$BIDTYPE: 0; BYTE) = DSCSK-DTYPE-T; 
14 BLOCK C.SP. DSCSWTLENGTH; 6, BYTE] = 0; 

Fs END; 

13 '¢ 

13 : Point R9 to the Last string descriptor allocated. 

20 BSFSA_TEMP_STG = .SP; 

5 Now allocate numeric temporaries. 

34 SP = .SP = .ARGLIST CBASSL_IN_NO_NMT); 
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3 $ 603 

; ri '¢ 

; 3 605 } Initialize the parts of the FCD relavent to a condition handler. 

: 230 6 "FMP CBSFSA_MARK) = 0; 

: 231 6 8 FMP CBSFSA-BASE_SP) = .SP; 

; § 6 FMP LBSFSA_BASE_R1 } E (BSFSA_MAJOR_STG = .OLD_FMP Ber oh BASE 1h 1): 
: 10 FMP LBSFSA_BASE_R1 = (BSFSA_MINOR STG = .OLD_FMP [CBSFSA_BASE_R10)); 
; : Bet) z FMP CBSFSA_BASE-R9] = .BSFSA_TEMP_STG; 

3 3 0618 The "PROCEDURE ID’ is the address of the start of the condition handler. 
3 38 0613 , FMP CBSFSA_PROC_ID] = .NEW_PC; 

: re O61? Copy the frame flags from the old frame. 

; 4¢ 0619 FMP CBSFSW_FCD_FLAGS] = .OLD_FMP CBSF$W_FCD_FLAGS); 

: 266 O63 i Set the frame ID to be “CONDITION HANDLER". This frame ID is checked 

3 siz be ; : for by the RESUME, ON ERROR GOTO 0 and ON ERROR GO BACK routines. 

; 47 O6g4 ¢ | FMP CBSFSB_PROC_CODE] = BSFSK_PROC_ONER; 

; Hs 36 $ ! Set the frame Length field. 

: $2) be 3 i FMP CBSFSB_LEN_FCD] = BSFSK_LENFCDONE; 

: 52g $630 i Set the integer interrupt enable bit in the PSW if requested. 

Bie BH Eh 

3 256 $633 ‘ IF ((.FMP CBSFSW_FCD_FLAGS] AND BSFSM_FCD_IV) NEQ 0) THEN BISPSW (ZREF (PSWSM_IV)); 
Ro BEG. 

; 259 0636 i Set up the exception handler. This also marks the frame as a 

; sot st $4 BASIC frame. 

; 36 0639 : FMP CBSFSA_HANDLER] = BASSHANDLER; 

: oee noes ; ; Branch to the compiled code. 

; 66 645 BASSCOND_JSB (.NEW_PC); 

3 268 0645 i The routine we ‘‘call’’ above will cut back the stack, and so never 

r $8 Re6 : return here, but we must return a value to satisfy BLISS. 

: 271 0648 RETURN (0); 

; 72 0649 1 END; ! of BASSINIT_ONER 


TITLE BASSINIT_ONER 
IDENT \1-003\ 


~-EXTRN BASS$HANDLER 
-PSECT _BASSCODE.NOWRT, SHR, PIC,2 
OFFC 00000 sENTRY BASSINIT_ONERR, Save R2,R3,R4,.R5,R6,R7,R8,- ; 0489 


- 
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1n808 12-8 08- 198 00:30:38 BASRTL.SRCIBASINIONE .B 2:1 
R9,R10,R11 
50 5D po 9002 MOVL FP. EMP 
: 0 AO 000 MOVAB =32(RO), SP 
3 4 AC DO 00009 MOVL OLD_FMP, R 
1 08 A2 00 00000 MOVL  =40TR2), ARGLIST 
Al b oot) TSTL  48CARGLIST) 
05 0 14 BNEQ 1$ 
3% «Al OD O16 TSTL 3¢(ARGLIST) 
1f 13 0001 BEQL «= G 
53 D4 00018 1$: CLRL COUNTER 
OF 11 0001D BRB $ 
SE 04 C2 OOtF 2s: SUBL2 #4, SP 
6E 04 00022 CLRL (SP) 
5E 04 C2 00024 SUBL2 #4 sp 
gf 02060000 8F 09 00027 MOVL  #34471936, (SP) 
EC 5 30 Al F 000¢6 3$: AOBLEQ 48(ARGLIST), COUNTER, 2$ 
59 5E 00 000 MOVL. SP, BSFSA_TEMP_ STG 
5E 34 Al C2 00036 SUBL2  52(ARGLIST), SP 
FC AO D4 OOO3A 4S: CLRL =4(FMP) 
F8 AO SE DO 00030 MOVL SP MP) 
SA FO A2 7D 00041 MOVG =16(R2), BSFSA_MINOR_STG 
FO =A0 5A 7D 00045 MOVQ BSFSA_MINOR_STG, -16TFMP) 
EC aod 59 DO 00049 MOVL BSFSA_TEMP_STG, -20(FMP) 
—8 a0 08 AC DO 00040 MOVL pT, - 
E6 AO £6 A2 BO 0005¢ MOVW =26TR25, =-26(FMP) 
E4 AO 0720 8F 80 0005 MOVW #1824, =28(FMP 
02 £6 AO 0B £1 0005D C #11, =26(FMP), S$ 
20 B8 00062 BISPSW # 
60 000000006 00 9E 00064 5$: MOVAB BASSHANDLER, (FMP) 
08 BC 16 00068 JSB @NEW_PC 
50 D4 0006E CLRL 
04 00070 ET 
; Routine Size: 113 bytes, Routine Base: _BASSCODE + 0000 
3 273 0650 1 
3s 274 0651 1 END 
; 275 065¢ 1 
: 276 0653 0 ELUDOM 
‘ 
: PSECT SUMMARY 
3 Name Bytes Attributes 
3  BASSCODE 113 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


3 Library Statistics 


| 
SETS Fo Ee PES De a bos SOS De Sa BES ted. Se SERS 
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ASSINIT_ONER 158 $ep-1984 00: AX-11 Oi Tog =32 V4.0-7 Page 
5808 14- ~Sep-1984 9 a : BASRTL.SRC JBASINIONE. 5 2:1 ¥ (3) 
; scccsese §yERG(§ seocerce Pages Processing 
; File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 6 0 581 00:01.1 
; COMMAND QUALIFIERS 
; BLISS/CHECK=<FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BASINIONE/0BJ=08J$ :BASINIONE MSRC$:BASINIONE/UPDATE=(ENH$:BAS INIONE 

size: 113 code + 0 data bytes 

un Time 00:07.2 
nel Time: 00:17.4 


Lines/CPU Min: 5449 
Lexemes/CPU-Min: 21137 
meet Used: 85 pages 
Compilation Complete 
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